0 CLR
1 REM COPYRIGHT 1991 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
5 LVL=1:RM=5
10 MF=12:TSF=63
20 FOR T=1TO6
30 CH(T)=0
40 NEXTT
100 PRINTCHR$(147);
110 POKE53281,0:POKE53280,11
115 PRINTTAB(12);"[158]READING DATA..."
120 FORCA=12672TO12734:READQA:POKECA,QA:NEXT
130 FORCB=12736TO12798:READQB:POKECB,QB:NEXT
140 FORCC=12800TO12862:READQC:POKECC,QC:NEXT
150 FORCD=12864TO12926:READQD:POKECD,QD:NEXT
160 FORCE=12928TO12990:READQE:POKECE,QE:NEXT
170 FORCF=12992TO13054:READQF:POKECF,QF:NEXT
180 FORDA=12288TO12350:READZA:POKEDA,ZA:NEXT
190 FORDB=12352TO12414:READZB:POKEDB,ZB:NEXT
200 FORDC=12416TO12478:READZC:POKEDC,ZC:NEXT
210 FORDD=12480TO12542:READZD:POKEDD,ZD:NEXT
220 FORDE=12544TO12606:READZE:POKEDE,ZE:NEXT
230 FORDF=12608TO12670:READZF:POKEDF,ZF:NEXT
235 PRINTCHR$(147);
240 V=53248
250 POKEV+23,TSF
260 POKEV+28,TSF:POKEV+37,7:POKEV+38,10
270 POKEV+0,50:POKEV+1,58
280 POKEV+2,80:POKEV+3,58
290 POKEV+4,110:POKEV+5,58
300 POKEV+6,140:POKEV+7,58
310 POKEV+8,170:POKEV+9,58
320 POKEV+10,200:POKEV+11,58
330 POKE2040,198:POKE2041,199
340 POKE2042,200:POKE2043,201
350 POKE2044,202:POKE2045,203
360 POKEV+21,TSF
370 POKEV+39,5:POKEV+40,6
380 POKEV+41,8:POKEV+42,4
390 POKEV+43,6:POKEV+44,5
400 PRINTCHR$(19);
410 POKE214,6:PRINT
415 PRINT"    1   2   3  4   5   6"
420 PRINT"                          "
430 FORT=1TO8
440 PRINT"   ";TAB(25);" "
450 NEXT
460 PRINT"                          "
470 PRINTCHR$(19);
480 POKE214,8:PRINT
490 FORT=1TO8
500 PRINT"                      "
510 NEXT
520 PRINTCHR$(19);
530 POKE214,8:PRINT
540 PRINTTAB(11);"[152][177][178][177][178][177][178]"
550 PRINTTAB(11);"[152][178][177][146][169][223][178][177]"
560 PRINTTAB(11);"[152][177][178][146]  [177][178]"
570 PRINTTAB(11);"[152][178][177][146]  [178][177]"
580 PRINTTAB(11);"[152][177][178][146]  [177][178]"
590 PRINTTAB(10);"[169]      [223]"
600 PRINTTAB(9);"[146][169]        [223]"
610 PRINTTAB(8);"[146][169]          [223]"
620 PRINTCHR$(19);
630 POKE214,10:PRINT
640 PRINTTAB(8);"[146][169]";TAB(19);"[146][223]"
650 PRINTTAB(7);"[146][169] ";TAB(19);"[146] [223]"
660 FORT=1TO2
670 PRINTTAB(7);"[146]  ";TAB(19);"[146]  "
680 NEXTT
690 PRINTTAB(7);"[146][175][175]";TAB(19);"[146][175][175]"
700 PRINTTAB(7);"[146]  ";TAB(19);"[146]  "
710 DM=INT(RND(0)*MF)+1
720 IF DM>6 THEN MC$="     NONE"
730 IFDM=1THENSM=192:MNC=12:MC$="    SHADOW"
740 IFDM=2THENSM=193:MNC=1:MC$="    GHOST"
750 IFDM=3THENSM=194:MNC=5:MC$="   SERPENT"
760 IFDM=4THENSM=195:MNC=6:MC$="WINGED WARRIOR"
770 IFDM=5THENSM=196:MNC=1:MC$="   SKELETON"
780 IFDM=6THENSM=197:MNC=2:MC$=" VAPOR DEMON"
790 PRINTCHR$(19);
910 PRINT
920 PRINTTAB(31);"[146]FOE"
930 PRINTTAB(31);"[146][184][184][184]":PRINT
940 PRINTTAB(26);"";TAB(26);MC$
950 IF DM>6THEN1100
1010 POKEV+23,TSF+64:POKEV+28,TSF+64
1020 POKEV+37,7:POKEV+38,10
1030 POKEV+12,124:POKEV+13,140
1040 POKE2046,SM
1050 POKEV+21,TSF+64
1060 POKEV+45,MNC
1100 PRINTCHR$(19);
1110 POKE214,7:PRINT
1120 PRINTTAB(29);"[146]OPTIONS"
1130 PRINTTAB(29);"[146][163][163][163][163][163][163][163]"
1140 PRINTTAB(29);"F[146]IGHT"
1150 PRINTTAB(29);"N[146]ORTH"
1160 PRINTTAB(29);"S[146]OUTH"
1170 PRINTTAB(29);"E[146]AST"
1180 PRINTTAB(29);"W[146]EST"
1190 GETKY$:IFKY$=""THEN1190
1200 IF MC$="     NONE" THEN 1240
1210 IF KY$="F"THEN 1290
1230 GOTO1190
1240 IF KY$="S"THEN2200
1250 IF KY$="N"THEN2530
1260 IF KY$="E"THEN2700
1270 IF KY$="W"THEN2900
1280 GOTO 1190
1290 PRINT CHR$(19);
1300 POKE214,18:PRINT
1305 PRINTTAB(2);"CHARACTER TO"
1310 INPUT"  FIGHT WITH";C
1311 IF C>6 THEN 1320
1312 IF C<1 THEN 1320
1315 IF CH(C)=255 THEN 1320
1317 GOTO 1400
1320 PRINTTAB(2);"THAT CHARACTER DOES NOT EXIST!"
1330 PRINTTAB(2);"CHOOSE AGAIN."
1340 FORO=1TO1000:NEXTO
1350 PRINTCHR$(19);
1360 POKE214,18:PRINT
1365 FORO=1TO4:PRINT"                                  ":NEXTO
1370 GOTO 1290
1400 PRINTCHR$(19);
1410 POKE214,8:PRINT
1420 FORT=1TO8:PRINTTAB(3);"                      ":NEXTT
1430 PL=1024:PC=55296
1440 MY=124
1450 PX=14:PY=13
1460 IF C=1 THEN CW=30:WC=9
1470 IF C=2 THEN CW=66:WC=6
1480 IF C=3 THEN CW=30:WC=9
1490 IF C=4 THEN CW=42:WC=4
1500 IF C=5 THEN CW=43:WC=7
1510 IF C=6 THEN CW=30:WC=9
1520 POKE53275,255
1530 MDR=INT(RND(0)*2)+1
1560 IF MDR=1ANDMY-4<50THEN MDR=2
1570 IF MDR=2ANDMY+4>192THEN MDR=1
1610 IF MDR=1 THEN MY=MY-8
1620 IF MDR=2 THEN MY=MY+8
1630 JY=PEEK(56320)
1640 IF JY=127 THEN1740
1650 IF JY=119 THEN WX=1
1660 IF JY=123 THEN WX=-1
1670 IF JY=125 THEN WY=1
1680 IF JY=126 THEN WY=-1
1690 IF JY=111 THEN 1800
1700 IFPEEK(1024+PY*40+(PX+WX))=160THENWX=0
1705 IFPEEK(1024+(PY+WY)*40+PX)=160THEN WY=0
1710 POKE1024+(PY*40)+PX,32
1720 PX=PX+WX
1730 PY=PY+WY
1740 POKEPC+(PY*40)+PX,3
1750 POKE1024+(PY*40)+PX,91:WX=0:WY=0
1760 POKEV+12,MY:POKEV+13,140
1770 GOTO 1530
1800 SWX=1664
1810 FX=SWX+PX
1820 FOR FY=FX TO (1024+40*PY+PX) STEP-40
1830 POKEPC+(FY-1024),WC
1840 POKEFY,CW
1850 FORGJ=1TO10:NEXTGJ
1860 POKEFY,32:NEXTFY
1865 IF MDR=1 THEN MY=MY+8
1870 IF MDR=2 THEN MY=MY-8
1875 HM=INT(MY/8)
1880 IF PY=11 THEN 1900
1890 IF PY=12 THEN 1900
1895 GOTO 2000
1900 IF PX+1=HM THEN 1930
1910 IF PX+2=HM THEN 1930
1920 GOTO 2000
1930 FORGJ=1TO10:FORT=0TO15
1935 POKE V+45,T
1940 NEXTT:NEXTGJ
1945 POKEV+21,TSF
1950 POKE53275,0
1960 PRINTCHR$(147);
1970 GOTO 400
2000 IF C=1 THEN VP=39:TSF=TSF-1
2005 IF C=2 THEN VP=40:TSF=TSF-2
2010 IF C=3 THEN VP=41:TSF=TSF-4
2015 IF C=4 THEN VP=42:TSF=TSF-8
2020 IF C=5 THEN VP=43:TSF=TSF-16
2025 IF C=6 THEN VP=44:TSF=TSF-32
2030 CH(C)=255
2040 FORGJ=1TO10:FORT=0TO15
2050 POKE V+VP,T
2060 NEXTT:NEXTGJ
2070 POKE53275,0
2080 POKEV+21,TSF
2085 IF TSF=0 THEN 30000
2090 PRINTCHR$(147);
2095 GOTO235
2200 IF RM=1 THEN 10000
2210 IF RM=4 THEN 10000
2220 IF RM=5 THEN 10000
2230 IF RM=10 THEN 10000
2240 IF RM=11 THEN 10000
2250 IF RM=12 THEN 10000
2255 IF RM=15 THEN 10000
2260 IF RM=17 THEN 10000
2270 IF RM=18 THEN 10000
2280 IF RM=20 THEN 10000
2290 IF RM=23 THEN 10000
2310 IF RM=24 THEN 10000
2320 IF RM=25 THEN 10000
2330 IF RM=28 THEN 10000
2340 IF RM=29 THEN 20000
2350 RM=RM+1:GOTO235
2530 IF RM=1 THEN 10000
2540 IF RM=5 THEN 10000
2550 IF RM=6 THEN 10000
2560 IF RM=11 THEN 10000
2570 IF RM=12 THEN 10000
2580 IF RM=13 THEN 10000
2590 IF RM=16 THEN 10000
2600 IF RM=18 THEN 10000
2610 IF RM=19 THEN 10000
2620 IF RM=21 THEN 10000
2630 IF RM=24 THEN 10000
2640 IF RM=25 THEN 10000
2650 IF RM=26 THEN 10000
2660 IF RM=29 THEN 10000
2670 RM=RM-1:GOTO235
2700 IF RM=2 THEN 10000
2710 IF RM=3 THEN 10000
2720 IF RM=9 THEN 10000
2730 IF RM=11 THEN 10000
2740 IF RM=14 THEN 10000
2750 IF RM=17 THEN 10000
2760 IF RM=18 THEN 10000
2770 IF RM=19 THEN 10000
2780 IF RM=22 THEN 10000
2790 IF RM=26 THEN 10000
2800 IF RM=27 THEN 10000
2810 IF RM=28 THEN 10000
2820 IF RM=25 THEN 20000
2830 RM=RM+5:GOTO235
2900 IF RM=1 THEN 10000
2910 IF RM=2 THEN 10000
2920 IF RM=3 THEN 10000
2930 IF RM=4 THEN 10000
2940 IF RM=5 THEN 10000
2950 IF RM=7 THEN 10000
2960 IF RM=8 THEN 10000
2970 IF RM=14 THEN 10000
2980 IF RM=16 THEN 10000
2990 IF RM=19 THEN 10000
3000 IF RM=22 THEN 10000
3010 IF RM=23 THEN 10000
3020 IF RM=24 THEN 10000
3030 IF RM=27 THEN 10000
3040 RM=RM-5:GOTO235
10000 PRINTCHR$(19);
10010 POKE214,8:PRINT
10015 FORT=1TO4
10020 PRINTTAB(3);"[152][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178]"
10030 PRINTTAB(3);"[152][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177]"
10040 NEXTT
10050 PRINTCHR$(19);
10060 POKE214,11:PRINT
10070 PRINTTAB(7);"A WALL BLOCKS"
10080 PRINTTAB(7);"  THIS HALL  "
10090 FOR O=1TO1000:NEXTO
10100 GOTO 235
20000 IF LVL=1 THEN LVL=2:RM=3:GOTO235
20010 IF LVL=2 THEN LVL=3:RM=18:GOTO235
20020 IF LVL=3 THEN LVL=4:RM=11:GOTO235
20030 IF LVL=4 THEN LVL=5:RM=28:GOTO235
20040 IF LVL=5 THEN 35000
30000 PRINTCHR$(19);
30010 POKE214,11:PRINT
30020 PRINTTAB(7);"  GAME OVER"
30030 PRINTTAB(7);"RESTART (Y/N)"
30040 GETKY$:IF KY$=""THEN30040
30045 IF KY$<>"Y"THENSYS64738
30050 IF KY$="Y"THEN RESTORE:GOTO5
35000 FOR J=1TO10:FORT=0TO15
35010 PRINTCHR$(19);
35020 POKE214,11:PRINT
35030 POKE646,T
35040 PRINTTAB(6);"CONGRATULATIONS!"
35050 NEXTT:NEXTJ
35060 GOTO30030
40010 REM--ARCHER (GIRL) *LEFT--
40020 DATA1,0,0,4,0,0,4,85,80
40030 DATA16,63,80,16,15,64,16,63,0
40040 DATA16,12,0,62,170,160,30,171,232
40050 DATA16,42,224,16,42,0,16,8,0
40060 DATA4,34,0,4,170,128,1,170,128
40070 DATA0,170,128,3,192,240,3,192,240
40080 DATA3,192,240,10,0,40,42,0,168
40100 REM--HUNTER (GIRL) *RIGHT--
40110 DATA128,0,0,128,0,0,128,21,80
40120 DATA128,87,192,64,31,0,128,95,192
40130 DATA129,95,192,128,12,0,131,191,128
40140 DATA131,239,176,143,171,172,240,42,172
40150 DATA128,15,204,128,10,128,128,58,240
40160 DATA128,62,240,128,60,240,128,252,252
40170 DATA128,240,60,128,160,40,128,168,42
40200 REM--ARCHER (GUY) *RIGHT--
40210 DATA10,160,32,42,168,8,34,252,8
40220 DATA2,192,2,0,252,2,0,48,2
40230 DATA10,138,2,14,171,2,63,175,194
40240 DATA240,168,254,192,168,2,0,168,2
40250 DATA0,32,2,0,168,2,0,168,2
40260 DATA2,170,2,2,138,8,10,138,8
40270 DATA10,10,32,12,3,0,15,3,192
40300 REM--WIZARD (GUY) *RIGHT--
40310 DATA2,160,0,10,168,0,8,188,0
40320 DATA4,240,0,0,252,0,0,48,8
40330 DATA0,168,38,2,170,8,10,170,172
40340 DATA10,170,172,56,170,40,50,170,8
40350 DATA0,136,8,10,34,8,10,170,8
40360 DATA10,170,8,10,170,8,42,170,8
40370 DATA42,170,8,170,171,8,60,3,200
40400 REM--WANDERER (GUY) *LEFT--
40410 DATA0,0,0,0,42,0,0,168,128
40420 DATA0,248,0,0,56,0,0,248,0
40430 DATA0,48,0,2,186,192,15,171,240
40440 DATA62,34,48,48,136,16,0,168,68
40450 DATA0,168,0,0,32,0,0,168,0
40460 DATA2,170,0,2,138,0,10,10,0
40470 DATA10,2,128,15,3,192,63,15,192
40500 REM--HUNTER (GUY) *RIGHT--
40510 DATA2,0,0,10,160,0,8,168,0
40520 DATA0,172,0,0,176,0,0,252,0
40530 DATA0,32,0,3,168,80,95,233,16
40540 DATA93,85,85,0,164,64,0,165,0
40550 DATA0,168,0,0,32,0,0,168,0
40560 DATA2,170,0,2,138,0,10,10,0
40570 DATA10,10,0,12,3,0,15,3,192
40600 REM--SHADOW--
40610 DATA0,0,0,0,32,0,0,32,0
40620 DATA0,136,0,0,136,0,2,70,0
40630 DATA2,2,0,0,136,0,0,168,0
40640 DATA2,170,169,10,170,169,10,42,40
40650 DATA10,138,8,10,106,0,1,106,0
40660 DATA2,170,0,10,170,0,10,170,0
40670 DATA42,170,128,42,170,128,170,170,128
40700 REM--GHOST--
40710 DATA0,40,0,0,170,0,0,170,0
40720 DATA2,40,128,10,40,160,42,170,168
40730 DATA42,170,168,40,170,40,160,170,10
40740 DATA162,170,138,162,170,138,130,170,130
40750 DATA162,170,138,34,170,136,2,170,128
40760 DATA10,170,160,10,170,160,10,170,160
40770 DATA42,170,168,10,170,160,0,0,0
40800 REM--SERPENT--
40810 DATA0,0,0,0,160,32,2,168,160
40820 DATA10,170,176,10,138,192,42,0,0
40830 DATA42,10,128,42,42,160,42,22,80
40840 DATA168,38,96,168,42,160,168,32,32
40850 DATA168,10,128,170,15,192,42,175,192
40860 DATA42,191,0,10,191,0,2,252,0
40870 DATA0,0,0,0,0,0,0,0,0
40900 REM--WINGED WARRIOR--
40910 DATA0,0,0,0,0,0,5,65,80
40920 DATA21,125,84,21,255,84,21,60,84
40930 DATA21,255,84,21,125,84,23,191,212
40940 DATA95,191,245,127,239,253,125,251,125
40950 DATA117,254,93,125,170,125,85,170,85
40960 DATA86,130,149,70,130,145,70,130,145
40970 DATA66,130,129,2,0,128,10,0,160
41000 REM--SKELETON--
41010 DATA0,170,0,2,170,128,2,40,128
41020 DATA2,0,128,2,170,128,0,170,0
41030 DATA0,130,0,8,40,32,34,40,136
41040 DATA0,130,0,32,40,8,32,130,8
41050 DATA32,40,8,32,130,8,0,40,0
41060 DATA0,130,0,0,130,0,0,130,0
41070 DATA2,0,128,2,0,128,10,0,160
41100 REM--VAPOR DEMON--
41110 DATA2,170,128,10,170,160,8,170,32
41120 DATA10,40,160,10,170,128,2,170,160
41130 DATA10,130,160,10,40,128,2,170,128
41140 DATA0,170,128,2,170,0,0,170,128
41150 DATA0,170,0,0,170,0,0,40,0
41160 DATA0,168,0,0,40,0,8,8,0
41170 DATA0,32,136,2,32,0,32,2,32